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-- DebugConf ig .mesa 
-- Edited by: 

Johnsson on August 30, 1978 12:01 PM 

Sandman on May 25, 1978 9:43 AM 

Barbara on July 13, 1978 2:23 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs" USING [ 

BCD. CTHandle. CTIndex, CTNull , FTHandle, FTNull , FTSelf, MTHandle. 

MTIndex, MTNull , NameRecord, NameString, SGIndex, VersionStamp] , 
ControlDefs: FROM "controldef s" USING [ 

GFT, GFTIndex, GFTItem, Global FramoHandle, NullEpBase, Nul IGlobal Frame] , 
DebugContextDefs: FROM "debugContextdef s" USING [Inval idGlobalFrame, MapRC], 
DebugData: FROM "debugdata" USING [ 

bcdseg, caseignoring, config, cti, gContext, initBCD, IContext, pContext, 

ssb], 
DebuggerDefs: FROM "debuggerdef s" USING [WriteBlanks , WriteSubString] , 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

ControlDEL, LookupFail, WriteEOL], 
DebugSymbolDefs: FROM "debugsymbol def s" USING [Symbol sForGFrame] , 
DebugUsefulDefs: FROM "debuguseful def s" , 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

CacheNewFile, CodeFile, FileName, FindOriginal , 

LoadStatelnvalid, MREAD, Val idGlobal Frame, VirtualGlobalFrame] . 
lODefs: FROM "iodefs" USING [ 

WriteChar, WriteDecimal , WriteOctal, WriteString] , 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateConf igTable, EnumerateModul eTable, FindName, 

ReleaseBcdSeg, SetUpBcd], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdSegFromLoadState, Configlndex, ConfigNull, 

EnumerateLoadStateBcds , GFTIndex, Initial izeRelocation , InputLoadState, 

MapConf igToReal , ReleaseLoadState, ReleaseRelocation, Relocation], 
SegmentDefs: FROM "segmentdef s" USING [ 

Def aul tAccess, DeleteFileSegment, FileError, FileHandle, FileNameError, 

FileSegmentAddress , FileSegmentHandle, MoveFileSegment, 

NewFileSegment , Read, Swapin, SwapOut, Unlock], 
StreamDefs: FROM "streamdefs" USING [ControlDELtyped] , 
StringDefs: FROM "stringdefs" USING [ 

AppendString, AppendSubString, EqualSubStrings , EquivalentSubStrings, 

SubStringDe scrip tor], 
SymbolTableDefs: FROM "symbol tabledefs" USING [SegmentForTable] ; 

DEFINITIONS FROM BcdDefs, LoaderBcdUtilDefs, LoadStateDefs; 

DebugConfig: PROGRAM 

IMPORTS DDptr: DebugData, DebugContextDefs, DebuggerDefs, DebugMiscDefs, 

DebugSymbolDefs, DebugUtilityDefs, lODefs, LoaderBcdUtilDefs, LoadStateDefs, 

SegmentDefs, StreamDefs, StringDefs, SymbolTableDefs 
EXPORTS DebugUsefulDefs, DebugContextDefs « 

BEGIN 

FileSegmentHandle: TYPE = SegmentDefs, FileSegmentHandle; 

ListConf igurations: PUBLIC PROCEDURE = 
BEGIN 

GetBcdSetUp: PROCEDURE [config: Configlndex, bcdAddr: BcdAddress] 
RETURNS [BOOLEAN] = 

BEGIN 

bcdseg: FileSegmentHandle ♦- NIL; 

bed: BcdBase; 

tempssb: NameString; 

ListSons: PROCEDURE [level: CARDINAL, parent: CTIndex] » 
BEGIN 

WriteConf igNames: PROCEDURE [cth: CTHandle, cti: CTIndex] 
RETURNS [BOOLEAN] « 
BEGIN 

IF cth. config « parent THEN 
BEGIN 

IF StreamDefs. ControlDELtyped[] THEN CleanupControlDEL[bcdseg]; 
DebugMiscDefs.WriteEOL[]: 
DebuggerDefs . WriteBl anks[ level *2] ; 
IF cth.namedinstance THEN 
BEGIN 
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PrintName[tempssb, FindName[bccl, [config[cti]]]]; 
IODefs.WriteString[": "L]; 
END; 
PrintName[tempssb, cth.name]; 
ListSons[1eve1+l , cti]; 
END; 
RETURNCFALSE] 
END; 

[] ^ EnumerateConf igNanies[bccl, WriteConf igNames]; 

RETURN 

END; 

IF config = DDptr.config AND -DDptr . ini tBCD THEN bed ^ DAcquireBcd[] 

ELSE bed <- SetUpBed[bedseg ♦- BedSegFromLoadState[eonf ig]]; 

tempssb ^ LOOPHOLE[bed+bcd. ssOff set] ; 

ListSons[0. CTNull]; 

IF bedseg /f NIL THEN ReleaseBcdSeg[bedseg] ELSE DRe1easeBcd[3 ; 

RETURN[FALSE] 

END; 

[] ^ InputLoadState[]; 

[] <- EnumerateLoadStateBeds[reeentf irst, GetBcdSetUp]; 

Re1easeLoadState[]; 

RETURN 

END; 

EnumerateConf igNames: PROCEDURE [bed: BedBase, 
proe: PROCEDURE [CTHandle, CTIndex] RETURNS [BOOLEAN]] 
RETURNS[CTIndex]« 
BEGIN 

mtb: CARDINAL = LOOPHOLE[bcd+bcd.mtOff set] ; 
mti: MTIndex <- FIRST[MTIndex] ; 

tempssb: NameString = LOOPHOLE[bed+bed. ssOf f set]; 
IF bcd.nConfigs = AND bcd.nModules = 1 THEN 
BEGIN OPEN m: mtb+mti; 
DebugMiscDefs.WriteEOL[]; 
IF m.namedinstanee THEN 
BEGIN 

PrintName[ tempssb, FindName[bcd ,[module[mti]]]]; 
IODefs.WriteString[": "L]; 
END; 
PrintName[tempssb, m.name]; 
RETURN[CTNun]; 
END; 
RETURN[EnumerateConf igTable[bcd, proc].cti] 
END; 

DisplayConfiguration: PUBLIC PROCEDURE « 
BEGIN OPEN DebugUtilityDefs, ControlDefs; 



ctb 
bed 
rel 
GFT 



CARDINAL; 

BedBase; 

Reloeation; 

POINTER TO ARRAY [0..0) OF GFTItem « ControlDefs .GFT; 



PrintModules: PROCEDURE [mth: MTHandle. mti: MTIndex] RETURNS [BOOLEAN] = 
BEGIN 

gft: GFTIndex; 

IF StreamOefs.ControlDELtyped[] THEN C1eanupControlDEL[DDptr .bedseg] ; 
DebugMiseDef s .WriteEOL[]; 

IF ~SameConfig[bcd, mth. config, DDptr.eti] THEN RETURN[FALSE] ; 
IF mth. namedins tanee THEN 

BEGIN 

PrintName[DDptr .ssb . FindName[bcd , [modu1e[mti]]]] ; 

IODefs.WriteString[": "L]; 

END; 
PrintName[DDptr.ssb. mth. name]; lODef s . WriteString[" , G: "L]; 
IF DeletedFrame[gft ^ rel [mth, gf i]] THEN lODef s .WriteString[" de1eted"L] 

ELSE IODefs.WriteOetal[MREAD[@GFT[gft]. frame]]; 
RETURN[FALSE]; 
END; 

[] <- InputLoadStat0[]; 

bed ♦- DAcquireBcd[] ; 

rel <- Initial izeRelocation[DDptr, config] ; 

DebuggerDefs .WriteBlanks[2]; 
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IF bcd.nConfigs # THEN 
BEGIN 

ctb ^ LOOPHOLE[bcd+bccl.ctOffset]; 
IF (ctb+DDptr.cti) .namedinstance THEN 
BEGIN 

PrintNamG[DDptr.ssb , FindName[bcd, [conrig[DDptr. cti]]]] ; 
I0D6fs.WriteString[": "L]; 
END; 
PrintName[DDptr.ssb, (ctb+DDptr.cti) .name]; 
END; 
[] <- EnunierateModuleTable[bcd,PrintModul8s]; 
Re1easeR8location[re1 ]; 
DReleasGBcd[]; 
ReleaseLoadState[] ; 
RETURN; 
END; 

SetRootConfiguration: PUBLIC PROCEDURE [configname: STRING] » 
BEGIN 

Rcount: CARDINAL <- 0; 

configdesc: String Defs .SubStringDescriptor; 
savecti: CTIndex <- CTNull ; 
saveconfig: Configlndex; 

GetSetUp: PROCEDURE [config: Configlndex. bcdAddr: BcdAddress] 
RETURNS [BOOLEAN] - 

BEGIN 

bcdseg: FileSegmentHandle <- NIL; 

found: BOOLEAN <- FALSE; 



bed 
mtb 
mti 



BcdBase; 

CARDINAL; 

MTIndex; 



CheckForRoot: PROCEDURE [cth: CTHandle. cti: CTIndex] RETURNS [BOOLEAN] - 
BEGIN 
IF StreaniDefs.ControlDELtyped[] THEN C1eanupContro1DEL[ 

IF config = DDptr. config AND -DDptr . initBCD THEN DDptr. bcdseg ELSE bcdseg]; 
IF cth. config # CTNull THEN RETURN[FALSE]; 
IF -(found <- TestName[cth.nanie]) THEN 

IF cth. namedinstance 

THEN found <- TestName[FindName[bcd , [conf ig[cti]]]]; 
IF found THEN 

BEGIN savecti ♦- cti; Rcount ♦■ Rcount +1; saveconfig «- config; END; 
RETURN[FALSE] 
END; 

TestName: PROCEDURE [name: NameRecord] RETURNS [BOOLEAN] » 
BEGIN OPEN StringDefs; 

tempssb: NameString = LOOPHOLE[bcd+bcd. ssOffset] ; 
ssd: SubStringDescriptor ♦- 

[base: @tempssb. string, offset: name, length: tempssb. size[name]]; 
IF DDptr . caseignoring 

THEN RETURN[Equiva1entSubStrings[0conf igdesc, 0ssd]] 
ELSE RETURN[Equa1SubStrings[@conf igdesc, ©ssd]] 
END; 

IF config = DDptr. config AND -DDptr . initBCD THEN bed ^ DAcquireBcd[] 

ELSE bed <- SetUpBed[bcdseg +- BcdSegFromLoadState[conf ig]]; 

mtb ^ LOOPHOLE[bcd+bed.mtOffset]; 

IF bcd.nConfigs = AND bcd.nModules = 1 THEN 

BEGIN 

mti *- FIRST[MTIndex]; 

IF -(found *- TestName[(mtb+mti ) .name]) THEN 
IF (mtb+mti ) .namedinstance 

THEN found <- Tes tName[F indName[bcd , [modu1e[mti]]]] ; 

IF found THEN 

BEGIN Rcount ^ Rcount+1; saveconfig ♦- config; savecti <- CTNull; END; 

END 
ELSE [] ♦- EnumerateConf igTable[bcd, CheckForRoot]; 
IF bcdseg ^ NIL THEN Re1easeBcdSeg[bcdseg] ELSE DRe1easeBcd[] ; 
RETURN[FALSE] 
END; 

configdesc ^ StringDefs. SubStringDescriptor[ 

base: configname, offset: 0, length: configname. length]; 
[] <- InputLoadStat8[]; 
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[] <- EnumerateLoadStateBcds[recentf irst.GetSetUp]; 

IF Rcount # 1 THEN ReleaseLoaclState[] ; 

IF Rcount " THEN SIGNAL DebugMiscDef s . LookupFail[conf igname]; 

IF Rcount ■ 1 THEN SetupRootConf ig[sav8Conf ig , savecti] 

ELSE WriteAinbiguousContext[conf igname, Rcount]; 
RETURN 
END; 

WriteAmbiguousContext: PROCEDURE [s: STRING, c: CARDINAL] » 
BEGIN OPEN lODefs; 

WriteChar[' 1]; Wri teString[s] ; WriteString[" has "L]; 
WriteDecimal[c] ; 

WriteString[" instances -- this is an ambiguous reference. "L] ; 
DebugMiscDef s.WriteEOL[]; 
RETURN 
END; 

SetupRootConf ig: PROCEDURE [config: Conf iglndex , cti: CTIndex] ■ 
BEGIN 

bed: BcdBase; 

bcdseg: FileSegmentHandle; 
IF config # DDptr. config THEN 
BEGIN 

bed <- SetUpBcd[bcdseg <- BcdSegFromLoadState[conf ig]]; 
IF SetupConfig[bcd, cti, config] THEN 
BEGIN 

SegmentDef s . Del eteFileSegment[ DDptr. bcdseg]; 
DDptr. bcdseg <- bcdseg; DDptr. config ♦- config; 
DDptr. ssb <- LOOPHOLE[bcd+bcd.ssOffset]; 
DDptr. cti <- cti; 
END 
ELSE ReleaseBcdSeg[bcdseg]; 
END 
ELSE IF SetupConfig[DAcquireBcd[], cti, config] THEN DDptr. cti ♦- cti; 
DReleaseBcd[]; 
RETURN 
END; 

SetConfiguration: PUBLIC PROCEDURE [s: STRING] » 
BEGIN 

bed: BcdBase; 
count: CARDINAL ^ 0; 

configdesc: StringDef s.SubStringDescriptor; 
savecti: CTIndex; 

CheckConfigName: PROCEDURE [cth: CTHandle, cti: CTIndex] RETURNS [BOOLEAN] - 
BEGIN 
found: BOOLEAN ^ FALSE; 

TestName: PROCEDURE [name: NameRecord] RETURNS [BOOLEAN] « 
BEGIN OPEN StringDefs; 
ssd: SubStringDescriptor <- 

[base: ©DDptr . ssb . string , offset: name, length: DDptr . ssb. size[name]] ; 
IF DDptr . caseignoring 

THEN RETURN[EquivalentSubStrings[@conf igdesc, 0ssd]] 
ELSE RETURN[Equa1SubStrings[0configdesc, @ssd]] 
END; 

IF StreamDefs.Contro1DELtyped[] THEN SIGNAL DebugMiscDef s .ControlDEL; 
IF ~SameConfig[bcd, cth. config, DDptr. cti] THEN RETURN[FALSE] ; 
IF -{found <- Tes tName[cth.name]) THEN 
IF cth .namedinstance THEN 

found ^ TestName[FindName[bcd,[conf ig[cti]]]] ; 
IF found THEN BFGIN count ^ count + 1; savecti ^ cti; END; 
RETURN[FALSE] 
END; 

configdesc <- StringDef s .SubStringDescriptor[ 

base: s, offset: 0, length: s, length]; 
IF DDptr. cti « CTNun 

THEN BEGIN lODef s . Wr i teStri ng[" -- Not allowed 1"L]; RETURN END; 
bed <" DAcquireBcd[] ; 

[] <- EnumerateConf igTable[bcd, CheckConfigName]; 
IF count « THEN 

BEGIN DReleaseBcd[]; SIGNAL DebugMiscDef s , LookupFail[s] ; END; 
IF count « 1 THEN 
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BEGIN 

[] <" InputLoadState[]; 

IF SetupConf ig[bccl, savecti , DDptr. conf ig] THEN DDptr.cti ^ savecti; 

END 
ELSE WriteAmbiguousContext[s, count]; 
DRe1easeBcd[3; 
RETURN 
END; 

SetupConf ig: PROCEDURE [bed: BcdBase, cti: CTIndex, config: Configlndex] RETURNS [BOOLEAN] 
BEGIN OPEN ControlDefs; 

ctb: CARDINAL ^ LOOPHOLE[bcd+bcd . ctOf f set] ; 
mtb: CARDINAL <- LOOPHOLE[bcd+bcd.mtOf f set] ; 
mtil: MTIndex ^ FIRST[MTIndex] ; 

FindFirstModule: PROCEDURE[mth : MTHandle, mti : MTIndex] RETURNS [BOOLEAN] - 
BEGIN OPEN DebugUtilityDefs; 
gft; GFTIndex; 
IF -SameConf ig[bcd, mth. config, cti] OR 

DeletedFrame[gf t <- MapConf igToReal[nith.gf i , config]] 

THEN RETURN[FALSE]; 
DDptr, gContext <- MREAD[@GFT[gft] .frame]; 
DDptr. IContext ^ NIL; 
DDptr. pContext ^ NIL; 
RETURN[TRUE]; 
END; 

BEGIN 

IF cti = CTNull THEN 
BEGIN 

IF ~FindFirstModu1e[(mtb+mtil). mtil] THEN GOTO notallowed 
ELSE GOTO done; 
END; 
IF (ctb+cti). control # MTNull THEN 

IF FindFirstModule[( ctb+cti ) . control +mtb , (ctb+cti ) . control] 
THEN GOTO done; 
IF EnumerateModuleTable[bcd, FindFirstModule] .mti = MTNull 

THEN GOTO notallowed; 
EXITS 

notallowed => 
BEGIN 

IODefs.WriteString[" -- Not Allowed l"L]; 
ReleaseLoadState[] ; 
RETURN[FALSE]; 
END; 
done «> NULL; 
END; 

ReleaseLoadState[]; 
RETURN[TRUE]; 
END; 

EnumerateConf iguration: PUBLIC PROCEDURE [ 

p: PROCEDURE [Global FrameHandl e] RETURNS [BOOLEAN]] « 
--sequences through frames of modules in current config 
BEGIN OPEN ControlDefs; 
bed: BcdBase; 
rel : Relocation; 

SearchModules: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] « 
BEGIN 

frame: GlobalFrameHandle; 

IF StreamDefs.ControlDELtyped[] THEN SIGNAL DebugMiscDef s.ControlDEL; 
IF ~SameConfig[bcd, mth. config, DDptr.cti] THEN RETURN[FALSE] ; 
frame ^ DebugUtil ityDefs .MREAD[@GFT[re 1 [mth . gfi]] . frame] ; 
IF frame = NullGlobal Frame TflEN RETURN[KALSE] ; 
IF -DebugUtilityDefs. Val idGlobal Frame[frame] 

THEN ERROR DebugContextDef s . Inval idGl obal Frame[f rame] ; 
IF p[frame] THEN RETURN[TRUE]; 
RETURN[FALSE]; 
END; 

BEGIN 

[] <- InputLoadState[ IDebugUtil ityDefs . LoadStatelnval id «> GOTO nil]; 
rel <~ Initial izeRelocation[DDptr .conf ig] ; 

[] ^ EnumerateModuleTable[bcd *- DAcquireBcd[] , SearchModules lUNWIND «> 
BEGIN ReleaseRelocation[rel]; DReleaseBcd[] ; ReleaseLoadState[] ; END]; 



DebugConf ig.mesa 2-Sep-78 15:32:14 Page 6 

ReleaseRe1ocation[re1]; 
DReleaseBcdC]; 
ReleaseLoadState[] ; 
EXITS 

nil => RETURN; 
END; 
RETURN 
END; 

GlobalFrameHancne: TYPE « ControlDef s .GIobalFrameHandle; 

SymbolSegForFrame: PUBLIC PROCEDURE [f: Global FrameHandle] 
RETURNS [seg: FileSegmen tHandle] « 

BEGIN OPEN DebugContextDefs, DebugUtil ityDef s , SegmentDef s; 
cgfi: GFTIndex; 
config: Configlndex; 
bcdseg: FileSegmentHandle ^ NIL; 
bed: POINTER TO BcdDofs.BCD; 
cdesc, segdesc: BcdDefs .SGIndex; 
Cleanup: PROCEDURE « 
BEGIN 

IF bcdseg i^ NIL THEN ReleaseBcdSeg[bcdseg] ELSE DReleaseBcd[] ; 
ReleaseLoadState[]; 
RETURN; 
END; 
FindModule: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] « 
BEGIN 

IF cgfi IN [mth.gfi. .mth.gfi+mth.ngfi) THEN 
BEGIN 

cdesc <- mth. code. sgi ; 
segdesc <- mth. sseg ; 
RETURN[TRUE]; 
END; 
RETURN[FALSE]; 
END; 
BEGIN OPEN DebugSymbolDefs; 
IF VirtualGlobalFrame[f]. copied THEN 
RETURN[ 

SymbolTableDef s. Segment ForTable [Symbol sForGFrame[FindOriginal[f]]]]; 
[] <- InputLoadState[ I LoadStatelnval id => GOTO nil]; 
[cgfi, config] *- MapRC[f]; 

IF config = ConfigNull THEN ERROR Inval idGlobal Frame[f ] ; 
IF config = DDptr. config AND -DDptr . initBCD THEN bed ^ DAcquireBcd[] 
ELSE bed <- SetUpBcd[bcdseg <- BcdSegFromLoadState[conf ig]]; 
[] <- EnumerateModuleTable[bcd. FindModule]; 
seg *- FindSegment[ 

f, IF bcdseg # NIL THEN bcdseg ELSE DDptr . bcdseg , segdesc, cdesc 1 
FileNameError, FileError => BEGIN seg ♦- NIL; CONTINUE END; 
UNWIND => Cleanup[]]; 
Cleanup[] ; 
EXITS 

nil => RETURN[NIL]; 
END; 
RETURN 
END; 

IncorrectVersion: PUBLIC SIGNAL [file: STRING] « CODE; 

FindSegment: PROCEDURE [frame: Global FrameHandle , seg: FileSegmentHandle, segdesc, codesegdesc: BcdDefs 

**. SGIndex] 

RETURNS [bcdseg: FileSegmentHandle] « 

BEGIN OPEN DebugUtilityDefs, SegmentDefs; 

ss : StringDefs.SubStringDe scrip tor; 

tempssb: NameString; 

name: STRING <- [40]; 

file: FileHandle; 

symsbcd: POINTER TO BcdDefs. BCD; 

bed: POINTER TO BcdDofs.BCD *- Fil eSegmentAddress[seg] ; 

sgb: CARDINAL ^ LOOPHOLE[bcd+bcd . sgOT Fset] ; 

f: BcdDefs. FTHandle ° LOOPHOLE[bcd+bed.f tOff set, CARDINAL] 

+(sgb+segdesc) .file; 
BEGIN 

SELECT (sgb+segdese).file FROM 
BcdDefs. MNull => RETURN[NIL]; 

BcdDefs. FTSelf «> RETURN["NewFileSegment[seg .f ile, (sgb + segdese) .base, 
(sgb+segdese) .pages+(sgb+segdesc) .extraPages, Read]]; 
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(sgb+codesegdesc) . File »> 

IF (file ^ CodeFi1e[frame]) ^ NIL THEN GOTO found; 

ENDCASE; 
tempssb ^ LOOPHOLE[bcd+bcd . ssOrf set] ; 
ss <- [etempssb. string, f.name, tempssb. size[f .name]] ; 
StringDef s. AppendSubString[nam0, 0ss]; 
CheckFor Extension [name, ".bcd'^L]; 
file ^ CacheNewFi1e[name, Def aul tAccess] ; 
EXITS 

found »> NULL; 
END; 

bcdseg <- NewFi1eSegment[f ile, l,.l, Read]; 
Swapln[bcdseg] ; 

symsbcd ^ Fi1eSegmentAddress[bcdseg] ; 
IF ~EqVer[0symsbcd .version, @f. version] THEN 

BEGIN 

IF name. length = THEN FileName[name, file]; 

Unlock[bcdseg] ; 

DeleteFileSegment[ bcdseg] ; 

SIGNAL IncorrectVersionfname]; 

RETURN[NIL]; 

END; 
Unlock[bcdseg] ; 
Mo veFileSegment[ bcdseg, (sgb+segdesc).base, 

(sgb+segdesc) .pages + (sgb+segdesc) .extraPages] ; 
RETURN; 
END; 

EqVer: PROCEDURE [vl, v2: POINTER TO BcdDef s . VersionStamp] RETURNS [BOOLEAN] = 
BEGIN 

RETURN[vl. zapped OR v2. zapped OR vlt « v2t]; 
END; 

— util ities 

CheckForExtension: PROCEDURE [name, ext: STRING] = 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] « ' . THEN RETURN; 

ENDLOOP; 
StringDef s . Appends tring[ name, ext]; 
RETURN 
END; 

CleanupControlDEL: PUBLIC PROCEDURE [bcdseg: SegmentDef s . FileSegmentHandle] = 
BEGIN 

IF bcdseg # DDptr. bcdseg AND bcdseg # NIL THEN Rel easeBcdSeg[bcdseg] ; 
DReleaseBcd[]; 
ReleaseLoadState[] ; 
SIGNAL DebugMiscDefs.ControlDEL; 
RETURN 
END; 

DAcquireBcd: PUBLIC PROCEDURE RETURNS [bed: BcdBase] = 
BEGIN OPEN SegmentDef s; 
Swap In [DDptr .bcdseg] ; 

bed ♦- FileSegmGntAddress[DDptr. bcdseg]; 
DDptr. ssb <- LOOPHOLE[bcd+bcd.ssOffset]; 
RETURN 
END; 

DReleaseBcd: PUBLIC PROCEDURE - 
BEGIN OPEN SegmentDef s; 
Unlock [DDptr .bcdseg] ; 

IF DDptr. bcdseg. lock « THEN SwapOut[DDptr . bcdseg]; 
RETURN 
END; 

PrintName: PUBLIC PROCEDURE [ssb: NameString, name: NameRecord] « 
BEGIN 
ssd: StringDef s .SubStringDescriptor ^ 

[base: @ssb. string, offset: name, length: ssb . size[name]] ; 
DebuggerDef s.Wri teSubString[@ssd] ; 
RETURN 
END; 
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SameConfig: PUBLIC PROCEDURE [bed: BcdBase, child, parent: CTIndex] 
RETURNS [BOOLEAN]- 

BEGIN 

cti: CTIndex; 

ctb: CARDINAL « LOOPHOLE[bcd+bcd . ctOPf set] ; 

--checks to see if child is related to parent 

FOR cti *- child, (cti+ctb) . conf ig UNTIL cti - CTNull DO 
IF cti « parent THEN RETURN[TRUE] ; 
ENDLOOP; 

RETURN[parent = CTNull] 

END; 

DeletedFrame: PUBLIC PROCEDURE [gf i : ControlDef s .GFTIndex] RETURNS [BOOLEAN]- 
BEGIN OPEN DebugUtilityDefs, ControlDefs; 
RETURN[MREAD[@GFT[gfi]. frame] « NullGlobal Frame AND 

MREAD[@GFT[gfi].epbase] « NullEpBase] 
END; 

InitBCD: PUBLIC PROCEDURE - 
BEGIN 

DDptr.initBCD *- TRUE; 
RETURN 
END; 

END. . . 



